Option Explicit
Sub A_Sample023()
    Dim myRows As Range
    Dim myRng1 As Range
    Dim myRng2 As Range
    Set myRows = Rows("3:6")		'NCd
    'ǳƨ즹
    For Each myRng1 In myRows.Columns(Columns.Count).Cells
        With myRng1
            If Len(.PrefixCharacter & .Formula) > 0 Then
                Set myRng2 = myRng1	'̥k䪺xsŦX
                Exit For
            Else
                With .End(xlToLeft)
                    If Len(.PrefixCharacter & .Formula) > 0 Then
                        If myRng2 Is Nothing Then
                            Set myRng2 = .Cells(1)
                        Else
                            If myRng2.Column < .Cells(1).Column Then
                                Set myRng2 = .Cells(1)
                            End If
                        End If
                    End If
                End With
            End If
        End With
    Next
    If myRng2 Is Nothing Then
        MsgBox "SJ"
    Else
        MsgBox myRng2.Address
    End If
    Set myRows = Nothing		'
    Set myRng1 = Nothing
    Set myRng2 = Nothing
End Sub
